unit UEditorFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Mask, DBCtrls;

type
  TEditorFrame = class(TFrame)
    LbName: TLabel;
  protected
    function GetData: string; virtual; abstract;
    procedure SetData(const Value: string); virtual; abstract;
  public
    FieldName: string;
    Empty: boolean;
    procedure Clear; virtual; abstract;
    property Data: string read GetData write SetData;
  end;

  TEditorFrameClass = class of TEditorFrame;

implementation

{$R *.dfm}

end.
